home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
utility
/
reqask.zip
/
REQUEST.ASM
< prev
Wrap
Assembly Source File
|
1994-03-28
|
1KB
|
85 lines
execbase = 4
OpenLib = -552
CloseLib = -414
AutoRequest = -348
move.l execbase,a6
lea intuiname,a1
moveq #0,d0
jsr OpenLib(a6)
tst.l d0
beq _nointuition
move.l d0,a6
requ:
move.l #0,a0 ; WBSCREEN
lea btext,a1 ; Bodytext
lea ltext,a2 ; Lefttext
lea rtext,a3 ; Righttext
move.l #0,d0 ; IDCMP left
move.l #0,d1 ; IDCMP right
move.l #180,d2
move.l #80,d3
jsr AutoRequest(a6)
auswertung:
tst.l d0 ; welcher Knopf (0=rechts)
beq requ
move.l a6,a1
move.l execbase,a6
jsr CloseLib(a6)
_nointuition:
rts
intuiname:
dc.b "intuition.library",0
even
intuibase:
dc.l 0
btext:
dc.b 0,1 ; Farben
dc.b 0 ; Modus
even
dc.w 10,10 ; Text-Position
dc.l 0 ; topaz
dc.l bodytext
dc.l 0 ; kein weiterer Text
bodytext:
dc.b "Programm beenden?",0
even
ltext:
dc.b 0,1 ; Farben
dc.b 0 ; Modus
even
dc.w 5,3 ; Text-Position
dc.l 0 ; topaz
dc.l lefttext
dc.l 0 ; kein weiterer Text
lefttext:
dc.b "Ja",0
even
rtext:
dc.b 0,1 ; Farben
dc.b 0 ; Modus
even
dc.w 5,3 ; Text-Position
dc.l 0 ; topaz
dc.l righttext
dc.l 0 ; kein weiterer Text
righttext:
dc.b "Nein",0
even
END